home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 4 / Meeting Pearls Vol. IV (1996)(GTI - Schatztruhe)[!].iso / Pearls / dtype / Others / htds / Install < prev    next >
Text File  |  1996-09-08  |  20KB  |  719 lines
  1. ;
  2. ; $PROJECT: HyperText-Datatype-System
  3. ;
  4. ; $VER: Install 40.4 (15.08.96)
  5. ;
  6. ; by
  7. ;
  8. ; Stefan Ruppert , Windthorststrasse 5 , 65439 Floersheim , GERMANY
  9. ;
  10. ; (C) Copyright 1996
  11. ; All Rights Reserved !
  12. ;
  13. ; $HISTORY:
  14. ;
  15. ; 15.08.96 : 040.004 : added helpfile
  16. ; 08.06.96 : 040.003 : works now with pre V43 installer
  17. ; 25.02.96 : 040.002 : added catalog support
  18. ; 07.02.96 : 040.001 : initial
  19. ;
  20.  
  21. (set #project       "HyperText-Datatype-System")
  22.  
  23. (set #loc-english (cat "english"))
  24. (set #loc-german  (cat "deutsch"))
  25.  
  26. (set #datatypes-list (cat
  27.      "hypertext.datatype\n"
  28.      "hyperguide.datatype\n"
  29.      "directory.datatype\n"
  30.      "man.datatype\n"
  31. ))
  32.  
  33. ;
  34. ; V43 installer only
  35. ;
  36. (procedure p_version name
  37.     (/ (getversion name) 65536)
  38. )
  39.  
  40. (procedure p_revision name
  41.     (set #p_ver (getversion name))
  42.     (- #p_ver (* (/ #p_ver 65536) 65536))
  43. )
  44.  
  45. ;
  46. ; german texts
  47. ;
  48.  
  49. (set #lang-default 0)
  50.  
  51. (if (= @language "deutsch")
  52.     (
  53.     (set #lang-default 2)
  54.     (set #chs-txt-install "Installieren")
  55.     (set #chs-txt-remove  "Entfernen")
  56.  
  57.     (set #txt-english "Englisch")
  58.     (set #txt-german  "Deutsch")
  59.  
  60.     (set #txt-classdir-prompt "Wo liegen die System Klassen ?")
  61.  
  62.     (set #txt-installing "Installiere")
  63.  
  64.     (set #txt-cpu-versions (cat
  65.          "Das " @app-name " umfaßt, zur Zeit folgende Datatypes :\n"
  66.          #datatypes-list
  67.          "\nBemerkung:\n"
  68.          "Diese Datatypes sind für den Prozessor MC68000 kompiliert. "
  69.          "Falls Sie einen höheren Prozessor besitzen, müssen Sie das "
  70.          "Archive HTDS_xxx.lha besorgen. Wobei xxx für die Abkürzung "
  71.          "des Prozessors steht (030 für MC68030)."
  72.     ))
  73.  
  74.     (set #txt-dest-dir-prompt (cat
  75.          "Wohin soll " @app-name " installiert werden ?\n"
  76.          "(Es wird ein Verzeichnis HTDS angelegt)"
  77.          )
  78.     )
  79.     (set #txt-dest-dir-help (cat
  80.          "Wählen Sie hier ein Verzeichnis, indem alle Dateien abgelegt "
  81.          "werden, die nicht an ein entsprechenden Platz im System "
  82.          "gehören. Also hier werden keine #?.datatype oder #?.catalog "
  83.          "Dateien abgelegt, sondern nur Dokumentationsdateien und/oder "
  84.          "Includes&AutoDocs\n"
  85.          )
  86.     )
  87.  
  88.     (set #txt-copy-descriptors-prompt "Kopiere Datatype Descriptoren")
  89.  
  90.     (set #txt-procedure-prompt
  91.         (cat
  92.         "Bitte wählen Sie die entsprechende Aktion:"
  93.         )
  94.     )
  95.     (set #txt-procedure-help
  96.         (cat
  97.         "Hier können Sie wählen, ob Sie " @app-name " installieren "
  98.         "oder eine alte Version entfernen möchten.\n\n"
  99.         )
  100.     )
  101.  
  102.     (set #txt-install          "Welche Dateien sollen zusätzlich installiert werden ?")
  103.  
  104.     (set #txt-copy-picdtpatch-prompt "Kopiere picdtpatch nach C: ?")
  105.     (set #txt-picdtpatch-prompt "Installieren von PicDTPatch ?\nFür nähere Information siehe Hilfe !")
  106.     (set #txt-picdtpatch-help
  107.          (cat "PicDTPatch wird benötigt, wenn Sie das HyperText-DataType-System "
  108.           "mit Bilder verwenden wollen und nicht den V43 picture.datatype "
  109.           "installiert haben (V43 arbeitet mit dem hypertext.datatype zusammen, "
  110.           "Danke Ralph). Dieses Programm fügt dem alten picture.datatype die "
  111.           "Methode DTM_DRAW hinzu, die benutzt wird, um ein Objekt aus dem "
  112.           "hypertext.datatype zu zeichnen.\n"
  113.           "ACHTUNG:\nWenn Sie Bilder als Hintergrund für die Workbench benutzen, "
  114.           "dann sollte PicDTPatch for IPrefs gestartet werden !\n\n"
  115.          )
  116.     )
  117.  
  118.     (set #chs-txt-docs             "Dokumentation (HyperGuide)")
  119.     (set #chs-txt-locale-sources   "Lokalisations Dateien (#?.ct,#?.cd)")
  120.     (set #chs-txt-examples         "Beispiel Doks")
  121.     (set #chs-txt-arexx            "ARexx Skripts")
  122.     (set #chs-txt-programmer-stuff "Programmierer Dateien (includes,AutoDocs)")
  123.  
  124.     (set #txt-copy-descriptors-prompt   "Kopiere Datentyp Deskripitoren")
  125.     (set #txt-copy-catalog-prompt       "Kopiere Katalog")
  126.     (set #txt-copy-helpfile-prompt      "Kopiere HyperGuide Hilfe Datei")
  127.     (set #txt-copy-docs-prompt          "Kopiere Dokumentation")
  128.     (set #txt-copy-examples-prompt      "Kopiere Beispiel Dateien")
  129.     (set #txt-copy-pics-prompt          "Kopiere Bilder")
  130.     (set #txt-copy-loc-sources-prompt   "Kopiere Lokalisations Quelldateien")
  131.     (set #txt-copy-prog-files-prompt    "Kopiere Programmier Dateien")
  132.     (set #txt-copy-arexx-prompt         "Kopiere ARexx Skripts")
  133.     (set #txt-copy-shell-man-prompt     "Kopiere man Skript")
  134.  
  135.     (set #txt-install-ag-desc-prompt    (cat
  136.          "Soll das HTDS auch für bestehende AmigaGuide Dateien verwendet werden ?\n\n"
  137.          "Dabei muß beachtet werden, das Programme, die die amigaguide.library benutzen, "
  138.          "nicht mehr korrekt die Dokumente/Hilfe anzeigen können. Das bedeutet auch, "
  139.          "das alle Programme die Menu oder Gadget Hilfe unterstützen, dann nicht mehr "
  140.          "richtig die Hilfe anzeigen können.\n\n"
  141.          "Daher empfiehlt sich diesen Teil nur dann zu installieren, wenn die oben "
  142.          "genannten Probleme bei ihnen nicht zutreffen.\n\n"
  143.          "Es wird später eine amigaguide.library geben, die diese Mängel beseitigt.\n"
  144.          ))
  145.  
  146.     (set #txt-install-ag-desc-help      (cat
  147.          "Wenn sie für alle bestehenden AmigaGuide Dateien auch das HTDS verwenden wollen, "
  148.          "muß der entsprechende Datentyp Deskriptor verändert werden (Devs:DataTypes/AmigaGuide). "
  149.          "Dieser wird dann nach Sys:Storage/DataTypes kopiert."))
  150.  
  151.     (set #txt-install-ag-link-prompt    (cat
  152.          "Sie haben ausgewählt, den neuen hyperguide.datatype für alle ihre vorhandenen "
  153.          "AmigaGuide Dateien zu benutzen. In dieser Konfiguration arbeiten einige Programme "
  154.          "nicht korrekt. Unter anderem auch das AmigaGuide Programm in Sys:Utilities."
  155.          "Soll nun das AmigaGuide Programm durch ein Hard Link auf MultiView ersetzt werden ?"
  156.     ))
  157.     (set #txt-install-ag-link-help "")
  158.  
  159.  
  160.     (set #txt-install-shell-man-prompt  "Soll ein shell man Front-End in S: installiert werden ?")
  161.  
  162.     (set #txt-language-prompt "Welche Sprachkataloge sollen installiert werden ?")
  163.     (set #txt-language-help   (cat ""))
  164.  
  165.     (set #txt-copy-include-files-prompt "Kopiere include Dateien")
  166.  
  167.     (set #txt-end (cat
  168.          "Nun sollten sie ihr System neu starten. Sie können das HTDS auch ohne Neustart "
  169.          "benutzen. Aber es könnte nicht ganz korrekt arbeiten, da AddDataTypes teilweise "
  170.          "fehlerhaft ist."))
  171.     )
  172. )
  173.  
  174. ;
  175. ; english texts (default)
  176. ;
  177.  
  178. (if (OR (= @language "english") (= #lang-default 0))
  179.     (
  180.     (set #lang-default 1)
  181.  
  182.     (set #chs-txt-install "Install")
  183.     (set #chs-txt-remove  "Remove")
  184.  
  185.     (set #txt-english "English")
  186.     (set #txt-german  "German")
  187.  
  188.     (set #txt-installing "Installing")
  189.  
  190.     (set #txt-cpu-versions (cat
  191.          "Currently the " @app-name " consists out of the following "
  192.          "datatypes:\n\n"
  193.          #datatypes-list
  194.          "\nNote:\n"
  195.          "These datatypes libraries are compiled for "
  196.          "MC68000 processor. If you have a higher MC68xxx, look out "
  197.          "for archive called HTDS_xxx.lha, where xxx stands for the "
  198.          "processor abbrevation."
  199.     ))
  200.  
  201.     (set #txt-dest-dir-prompt (cat
  202.          "Where do you want to install the " @app-name " ?\n"
  203.          "(A drawer called HTDS will be created there)"
  204.          )
  205.     )
  206.     (set #txt-dest-dir-help (cat
  207.          "Please select here a drawer, in which all files are copied, "
  208.          "which have no appropriate place in the system. This are "
  209.          "documentations, examples and macro files and not #?.datatype "
  210.          "or #?.catalog files."
  211.          )
  212.     )
  213.  
  214.     (set #txt-copy-descriptors-prompt "Copying the Descriptors")
  215.  
  216.  
  217.     (set #txt-procedure-prompt
  218.         (cat
  219.         "Please select the appropriate procedure:"
  220.         )
  221.     )
  222.  
  223.     (set #txt-procedure-help
  224.         (cat
  225.         "You can here select the Install procedure to install "
  226.         "all nessecary files for the " @app-name ".\n"
  227.         "Or select Remove to remove all previously installed "
  228.         "files of the " @app-name " from your system.\n\n"
  229.         )
  230.     )
  231.  
  232.     (set #txt-install          "Select the files to install :")
  233.  
  234.     (set #txt-copy-picdtpatch-prompt "copy picdtpatch to C: ?")
  235.     (set #txt-picdtpatch-prompt "Installation of PicDTPatch ?\nFor detailed information see help !")
  236.     (set #txt-picdtpatch-help (cat
  237.          "PicDTPatch is needed, if you want to use pictures within HyperText "
  238.          "objects and if you don't use V43 of the picture.datatype (Thanks Ralph)."
  239.          "This program adds a method to the picture.datatype to render a picture "
  240.          "at a specified position (DTM_DRAW).\n"
  241.          "Attention: If you use some pictures as WB backgounds, it should be "
  242.          "nesseccary to run PicDTPatch before IPrefs !!\n\n"
  243.          )
  244.     )
  245.  
  246.     (set #chs-txt-docs             "Documentation (HyperGuide)")
  247.     (set #chs-txt-locale-sources   "Locale files (#?.ct,#?.cd)")
  248.     (set #chs-txt-examples         "Example Docs")
  249.     (set #chs-txt-arexx            "ARexx scripts")
  250.     (set #chs-txt-programmer-stuff "Programmer Files (includes,AutoDocs)")
  251.  
  252.     (set #txt-copy-descriptors-prompt   "Copy DataType descripitors")
  253.     (set #txt-copy-catalog-prompt       "Copy catalog")
  254.     (set #txt-copy-helpfile-prompt      "Copy HyperGuide help file")
  255.     (set #txt-copy-docs-prompt          "Copy documentation files")
  256.     (set #txt-copy-examples-prompt      "Copy example files")
  257.     (set #txt-copy-pics-prompt          "Copy pictures")
  258.     (set #txt-copy-prog-files-prompt    "Copy programmer files")
  259.     (set #txt-copy-loc-sources-prompt   "Copy locale sourcefiles")
  260.     (set #txt-copy-arexx-prompt         "Copy ARexx scripts")
  261.     (set #txt-copy-shell-man-prompt     "Copy man script")
  262.  
  263.     (set #txt-install-ag-desc-prompt    (
  264.          "Should the HTDS be used for existing AmigaGuide files ?\n\n"
  265.          "Note: This may cause problems with programs, which uses the amigaguide.library. "
  266.          "Because the library can't display the documents/helptexts correctly. This also "
  267.          "includes programs, which supports menu and gadget help.\n\n"
  268.          "Therefore it is only recommended to install this part, if the above mentioned "
  269.          "problems do not fit in your system.\n\n"
  270.          "Later there will be a amigaguide.library replacement, which avoid these problems.\n"
  271.     ))
  272.     (set #txt-install-ag-desc-help      (cat
  273.          "If you want to use the HTDS for your existing AmigaGuide files, "
  274.          "it is necessary to change the datatype descriptor (Devs:DataTypes/AmigaGuide). "
  275.          "The old one will be copied to Sys:Storage/DataTypes."))
  276.  
  277.     (set #txt-install-ag-link-prompt    (cat
  278.          "You have choosen to use the new hyperguide.datatype for all of your "
  279.          "AmigaGuide files. So some programs don't work with this configuration. "
  280.          "Also AmigaGuide program doesn't work correctly.\n"
  281.          "Should I replace the AmigaGuide program in Sys:Utilities "
  282.          "to a hard link to MultiView ?"
  283.     ))
  284.     (set #txt-install-ag-link-help "")
  285.  
  286.     (set #txt-language-prompt "Which locale catalog should be installed ?")
  287.     (set #txt-language-help   (cat ""))
  288.  
  289.     (set #txt-install-shell-man-prompt  "Install a shell man front-end to S: ?")
  290.  
  291.     (set #txt-copy-include-files-prompt "Copy include files")
  292.  
  293.     (set #txt-end (cat
  294.          "Now you should reboot your system. You can also try the HTDS without a boot, "
  295.          "but due to a bug in AddDataTypes it may not work correctly until you have "
  296.          "rebooted."))
  297.     )
  298. )
  299.  
  300.  
  301. (set #mode 0)
  302.  
  303. ; Currently no UnInstall
  304. ;(set #mode
  305. ;     (askchoice
  306. ;         (prompt #txt-procedure-prompt)
  307. ;         (help (cat #txt-procedure-help @askchoice-help))
  308. ;         (choices #chs-txt-install #chs-txt-remove)
  309. ;     )
  310. ;)
  311.  
  312.  
  313. (if #mode
  314.     (set #pmode #txt-remove)
  315.     (set #pmode #txt-install)
  316. )
  317.  
  318. ; get classes dir
  319. (set #classdir
  320.     (askdir
  321.         (prompt #txt-classdir-prompt)
  322.         (help @askdir-help)
  323.         (default "SYS:Classes")
  324.     )
  325. )
  326.  
  327. ; now do install or remove
  328. (if #mode
  329.     ; Remove
  330.     (
  331.     ; Show what we are doing
  332.     (working "Removing " @app-name)
  333.  
  334.     ; Remove the non-standard pieces
  335.  
  336.     ; Don't want to use the confusing "Installation Complete" message
  337.     ; when what we really did was remove things...
  338.     (message "The \"" @app-name "\" components "
  339.          "that you specified have been successfully removed")
  340.     (exit (quiet))
  341.     )
  342.  
  343.     ; Install
  344.     (
  345.     (message #txt-cpu-versions)
  346.  
  347.     (complete 0)
  348.  
  349.     (set #dest-dir
  350.          (askdir
  351.             (prompt #txt-dest-dir-prompt)
  352.             (help #txt-dest-dir-help @askdir-help)
  353.             (default "Work:")
  354.          )
  355.     )
  356.  
  357.     (set #languages
  358.          (askoptions
  359.          (prompt #txt-language-prompt)
  360.          (choices #txt-english #txt-german)
  361.          (help #txt-language-help @askoptions-help)
  362.          (default #lang-default)
  363.          )
  364.     )
  365.  
  366.     (if (= @user-level 0)
  367.         (set #instflags 3)
  368.         (set #instflags 15)
  369.     )
  370.  
  371.     (set #instflags
  372.          (askoptions
  373.             (prompt #txt-install)
  374.             (choices #chs-txt-docs #chs-txt-examples #chs-txt-locale-sources #chs-txt-arexx) ; #chs-txt-programmer-stuff
  375.             (default #instflags)
  376.             (help #txt-install-help @askoptions-help)
  377.          )
  378.     )
  379.  
  380.     (set #inst-docs           (in #instflags 0))
  381.     (set #inst-examples       (in #instflags 1))
  382.     (set #inst-locale-sources (in #instflags 2))
  383.     (set #inst-arexx          (in #instflags 3))
  384.     (set #inst-programmer     (in #instflags 4))
  385.  
  386.  
  387.     (set #install-ag-desc
  388.          (askbool
  389.           (prompt #txt-install-ag-desc-prompt)
  390.           (help (cat #txt-install-ag-desc-help @askbool-help))
  391.          )
  392.     )
  393.  
  394.     (if #install-ag-desc
  395.         (set #install-ag-link
  396.          (askbool
  397.              (prompt #txt-install-ag-link-prompt)
  398.              (help (cat #txt-install-ag-link-help @askbool-help))
  399.          )
  400.         )
  401.     )
  402.  
  403.     (set #install-man
  404.          (askbool
  405.           (prompt #txt-install-shell-man-prompt)
  406.           (help (cat #txt-install-shell-man-help @askbool-help))
  407.          )
  408.     )
  409.  
  410.     (working #installing @app-name)
  411.  
  412.     (complete 20)
  413.  
  414.     (set #dest-dir (tackon #dest-dir "HTDS"))
  415.     (if (= (exists #dest-dir) 0)
  416.         (makedir #dest-dir (infos))
  417.     )
  418.     (set @default-dest #dest-dir)
  419.  
  420.     (set #macro-dir (tackon #dest-dir "macros"))
  421.     (set #arexx-dir (tackon #dest-dir "ARexx"))
  422.  
  423.     ;
  424.     ; only need to install the picdtpatch if orig. picture.datatype is found
  425.     ;
  426.     (if (< @installer-version 43)
  427.         (set #inst-picdtpatch 1)
  428.         (set #inst-picdtpatch (< (p_version (tackon #classdir "DataTypes/picture.datatype")) 43))
  429.     )
  430.  
  431.     (if #inst-picdtpatch
  432.         (
  433.         (startup @app-name
  434.              (command "run <>NIL: c:picdtpatch")
  435.              (prompt #txt-picdtpatch-prompt)
  436.              (help #txt-picdtpatch-help @startup-help)
  437.         )
  438.         (copyfiles
  439.             (prompt #txt-copy-picdtpatch-prompt)
  440.             (help @copyfiles-help)
  441.             (source "c/picdtpatch")
  442.             (dest "C:")
  443.             (confirm)
  444.         )
  445.         )
  446.     )
  447.  
  448.     ; Install the descriptors
  449.     (if (= (exists "devs/datatypes" (noreq)) 2)
  450.         (copyfiles
  451.         (prompt #txt-copy-descriptors-prompt)
  452.         (help @copyfiles-help)
  453.         (source "devs/datatypes")
  454.         (dest "DEVS:DataTypes")
  455.         (pattern "#?")
  456.         (infos)
  457.         )
  458.     )
  459.  
  460.     (if #install-ag-desc
  461.         (
  462.         (if (= (exists "Devs:DataTypes/AmigaGuide" (noreq)) 1)
  463.             (if (= (exists "Sys:Storage/DataTypes/AmigaGuide" (noreq)) 0)
  464.             (copyfiles
  465.                 (prompt #txt-copy-descriptors-prompt)
  466.                 (help (cat #txt-copy-descriptors-help @copyfiles-help))
  467.                 (source "Devs:DataTypes")
  468.                 (dest "Sys:Storage/DataTypes")
  469.                 (pattern "AmigaGuide#?")
  470.                 (infos)
  471.             )
  472.             )
  473.         )
  474.         (if #install-ag-link
  475.             (if (= (exists "Sys:Utilities/AmigaGuide.Old" (noreq)) 0)
  476.             (if (= (exists "Sys:Utilities/AmigaGuide") 1)
  477.                 (
  478.                 (rename "Sys:Utilities/AmigaGuide" "Sys:Utilities/AmigaGuide.Old")
  479.                 (run    "C:MakeLink From Sys:Utilities/AmigaGuide To Sys:Utilities/MultiView Hard Force")
  480.                 )
  481.             )
  482.             )
  483.         )
  484.         (copyfiles
  485.             (prompt #txt-copy-descriptors-prompt)
  486.             (help (cat #txt-copy-descriptors-help @copyfiles-help))
  487.             (source "devs")
  488.             (dest "DEVS:DataTypes")
  489.             (pattern "AmigaGuide#?")
  490.             (infos)
  491.         )
  492.         )
  493.     )
  494.  
  495.     (complete 30)
  496.  
  497.     ; Install the datatypes
  498.     (set i 0)
  499.     (while (set #datatype (select i "hypertext" "hyperguide" "directory" "man" ""))
  500.          (copylib
  501.          (prompt (cat "Copying " #datatype ".datatype"))
  502.          (help @copylib-help)
  503.          (source (tackon "classes/datatypes" (cat #datatype ".datatype")))
  504.          (dest (tackon #classdir "DataTypes"))
  505.          (confirm)
  506.          )
  507.          (set i (+ i 1))
  508.     )
  509.  
  510.     (complete 40)
  511.  
  512.     (if (= (exists "macros" (noreq)) 2)
  513.         (
  514.         (copyfiles
  515.             (prompt #txt-copy-macros-prompt)
  516.             (source "")
  517.             (dest #dest-dir)
  518.             (pattern "macros#?")
  519.             (infos)
  520.         )
  521.         (if (= (exists "ENVARC:DataTypes/hyperguide.prefs" (noreq)) 0)
  522.             (
  523.             (textfile
  524.                 (dest "ENVARC:DataTypes/hyperguide.prefs")
  525.                 (append (cat "MACRODIR " #macro-dir "\n"))
  526.             )
  527.             (textfile
  528.                 (dest "ENV:DataTypes/hyperguide.prefs")
  529.                 (append (cat "MACRODIR " #macro-dir "\n"))
  530.             )
  531.             )
  532.         )
  533.         )
  534.     )
  535.  
  536.     (complete 50)
  537.  
  538.     (if (= (exists "locale" (noreq)) 2)
  539.         (
  540.         (set l 0)
  541.         (while (set #lang (select l #loc-english #loc-german ""))
  542.              (if (in #languages l)
  543.              (
  544.                  (set c 0)
  545.                  (while (set #catalog (select c "hypertextdt" "directorydt" ""))
  546.                  (if (= (exists (cat "locale/catalogs/" #lang "/" #catalog ".catalog")) 1)
  547.                      (copyfiles
  548.                      (prompt (cat #txt-copy-catalog-prompt ": " #lang))
  549.                      (source (cat "locale/catalogs/" #lang "/" #catalog ".catalog"))
  550.                      (dest   (cat "Locale:catalogs/" #lang))
  551.                      )
  552.                  )
  553.                  (set c (+ c 1))
  554.                  )
  555.                  (if (= (exists (cat "locale/help/" #lang "/HTDS_Help.hguide")) 1)
  556.                  (copyfiles
  557.                      (prompt (cat #txt-copy-helpfile-prompt ": " #lang))
  558.                      (source (cat "locale/help/" #lang "/HTDS_Help.hguide"))
  559.                      (dest   (cat "Help:" #lang))
  560.                  )
  561.                  )
  562.  
  563.                  ; only install global TOC, if it doesn't exists
  564.                  (if (= (exists (cat "Help:" #lang "/HTDS_TOC.hguide") (noreq)) 0)
  565.                  (if (= (exists (cat "locale/help/" #lang "/HTDS_TOC.hguide")) 1)
  566.                      (
  567.                      (copyfiles
  568.                          (prompt (cat #txt-copy-tocfile-prompt ": " #lang))
  569.                          (source (cat "locale/help/" #lang "/HTDS_TOC.hguide"))
  570.                          (dest   (cat "Help:" #lang))
  571.                      )
  572.                      (rexx (cat "ARexx/AddTOCEntry.rexx HyperText-DataType-System " (tackon (tackon #dest-dir "docs") "HTDS.hguide")))
  573.                      )
  574.                  )
  575.                  )
  576.              )
  577.              )
  578.              (set l (+ l 1))
  579.         )
  580.         )
  581.     )
  582.  
  583.     (complete 60)
  584.  
  585.     (if #inst-docs
  586.         (
  587.         (copyfiles
  588.             (prompt #txt-copy-docs-prompt)
  589.             (help @copyfiles-help)
  590.             (source "")
  591.             (dest #dest-dir)
  592.             (pattern "docs#?")
  593.             (infos)
  594.         )
  595.         )
  596.     )
  597.  
  598.     (if #inst-examples
  599.         (
  600.         (copyfiles
  601.             (prompt #txt-copy-examples-prompt)
  602.             (help @copyfiles-help)
  603.             (source "")
  604.             (dest #dest-dir)
  605.             (pattern "examples#?")
  606.             (infos)
  607.         )
  608.         )
  609.     )
  610.  
  611.     (if (or #inst-docs #inst-examples)
  612.         (
  613.         (copyfiles
  614.             (prompt #txt-copy-pics-prompt)
  615.             (help @copyfiles-help)
  616.             (source "")
  617.             (dest #dest-dir)
  618.             (pattern "pics#?")
  619.             (infos)
  620.         )
  621.         )
  622.     )
  623.  
  624.     (complete 70)
  625.  
  626.     (if #inst-arexx
  627.         (
  628.         (copyfiles
  629.             (prompt #txt-copy-arexx-prompt)
  630.             (help @copyfiles-help)
  631.             (source "")
  632.             (dest #dest-dir)
  633.             (pattern "ARexx#?")
  634.             (infos)
  635.         )
  636.         )
  637.     )
  638.  
  639.     ; install programmer files
  640.     (if #inst-programmer
  641.         (
  642.         (copyfiles
  643.             (prompt #txt-copy-prog-files-prompt)
  644.             (help @copyfiles-help)
  645.             (source "programmer")
  646.             (dest (tackon #dest-dir "programmer"))
  647.             (pattern "#?")
  648.             (infos)
  649.         )
  650.         (copyfiles
  651.             (source "programmer.info")
  652.             (dest #dest-dir)
  653.         )
  654.         (tooltype (dest (tackon #dest-dir "programmer.info")) (noposition))
  655.         )
  656.     )
  657.  
  658.     (complete 80)
  659.  
  660.     (if #inst-locale-sources
  661.         (
  662.         (copyfiles
  663.             (prompt #txt-copy-loc-sources-prompt)
  664.             (help @copyfiles-help)
  665.             (source "locale")
  666.             (dest (tackon #dest-dir "locale"))
  667.             (pattern "(#?.c?|translations)")
  668.             (infos)
  669.         )
  670.         (copyfiles
  671.             (source "locale.info")
  672.             (dest #dest-dir)
  673.         )
  674.         )
  675.     )
  676.  
  677.     (if #install-man
  678.         (
  679.         (copyfiles
  680.             (prompt #txt-copy-man-shell-prompt)
  681.             (help @copyfiles-help)
  682.             (source "s")
  683.             (dest "s:")
  684.             (pattern "man#?")
  685.             (infos)
  686.         )
  687.         )
  688.     )
  689.  
  690.     (complete 90)
  691.  
  692.     (if (exists (cat "locale/ReadMe/" @language))
  693.         (copyfiles
  694.         (source (cat "locale/ReadMe/" @language))
  695.         (newname "ReadMe")
  696.         (dest #dest-dir)
  697.         )
  698.         (copyfiles
  699.         (source "ReadMe.txt")
  700.         (newname "ReadMe")
  701.         (dest #dest-dir)
  702.         )
  703.     )
  704.     (copyfiles
  705.         (source "ReadMe.info")
  706.         (dest #dest-dir)
  707.     )
  708.     (tooltype (dest (tackon #dest-dir "ReadMe")) (setdefaulttool "MultiView") (noposition))
  709.  
  710.     ; Tell the system about the new descriptors
  711.     (run "C:AddDataTypes Refresh")
  712.     (execute "ReadMe")
  713.  
  714.     (complete 100)
  715.     (exit #txt-end)
  716.     )
  717. )
  718.  
  719.